Private Sub Workbook_NewSheet(ByVal Sh As Object)

    Dim Ʈ As Worksheet
    Dim i As Integer
    
    Sh.Move after:=Sheets(Sheets.Count)
    
    Set Ʈ = Sh.Previous
    
    Ʈ.Cells.Copy Sh.Cells(1)
    
    Range("B8:K13").ClearContents
    
    If InStr(1, Ʈ.Name, "_") > 0 Then
    
        i = Mid(Ʈ.Name, InStrRev(Ʈ.Name, "_") + 1) + 1
        
    Else
    
        i = 1
        
    End If
    
    Sh.Name = "_" & i

End Sub
